home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 23.zip / BS1 part 23 / Superbase 4 ser 12C00584^1.adf / Trading / MENU.SBP < prev    next >
Text File  |  1991-03-13  |  15KB  |  648 lines
  1. SBP
  2.  ÿ½     MENU                                
  3.  ÿ½     Superbase Demonstration Trading System 
  4.  ÿ½     Master Menu Program
  5.  ÿ½     Last updated Mar 14, 91
  6.  
  7.  ÿ³ÿ_ÿwferror 
  8.  
  9. mloop:ÿ½ Menu item selection
  10.  ÿßÿe
  11.  ÿ¡ret%ÿp
  12. ÿ½ Returning from another routine
  13. ÿ¡ÿœÿbanner$ÿpÿ´ÿœbanner$ÿ^ÿœ
  14. ÿ¡ma%ÿ
  15. 4ÿpÿvsmenu
  16.  ÿ^
  17. ÿ½ First time thru
  18. banner$ÿ"banner2"
  19. ÿvsinit
  20. banner$ÿ"banner"
  21.  ÿ’ÿ¡
  22.  ÿ¬ÿ³ma%,mb%
  23.  ÿÊÿËss1$
  24.  
  25.  ÿ¡ret%ÿ0ÿpÿßÿ³:ÿÏÿßÿÿ¬
  26.  ÿØÿOma%
  27. ÿ¡h2%ÿÿ:(ÿR)ÿpÿvshead
  28.  ÿÙ
  29.  ÿ¡ma%ÿ
  30. 4ÿpÿ¬ÿ…
  31.  ret%ÿ1
  32.  ÿ³ma%ÿwm1,m2,m3,m4,m5,m6
  33.  
  34. sinit:ÿ½ Initialize first time thru
  35.  ÿ†ÿt:ÿÊÿfÿ³:ÿ²"z-99999.00"
  36.  ÿ½ STATUS ON 
  37.  h3$ÿ"Superbase Demonstration Trading System "
  38.  ÿÊÿË"Initializing application"
  39.  ÿÊÿÂÿŸ"Trading System"
  40.  ÿvshead
  41.  ÿ´ÿœbanner$
  42.  ÿ´ÿ™"TRANS":ÿ´ÿ™"CTRL":ÿ½ opens all files
  43.  ÿ×pstk$(12),pstk%(12):ÿ½ key arrays for multi-record screens
  44.  
  45.  ÿ½ Dialog messages
  46.  ms1$ÿ"Is entry correct?"
  47.  ms2$ÿ"Continue with data entry?"
  48.  ms3$ÿ"Do you wish to reprint?"
  49.  ms4$ÿ"Has all output been correctly printed?"
  50.  ms5$ÿ"Select another record?"
  51.  ms6$ÿ"Select another line?"
  52.  ms7$ÿ"Select index sequence"
  53.  ms8$ÿ"Record already exists with this key"
  54.  ms9$ÿ"Press OK to make another selection"
  55.  ms10$ÿ"Report to printer?"
  56.  ms11$ÿ"Report line too long for printer"
  57.  ms12$ÿ"Try using a smaller font"
  58.  ms13$ÿ"Include external images and text?"
  59.  ms14$ÿ"Deleting record "
  60.  ms15$ÿ"Are you sure?"
  61.  ms16$ÿ"Print (c)urrent record, (s)elected or (a)ll records"
  62.  ms17$ÿ"(d)isplay or (p)rint?"
  63.  ms18$ÿ"Cannot find related client record"
  64.  ms19$ÿ"Transaction record found"
  65.  ms20$ÿ"Please delete related transaction(s)"
  66.  ms21$ÿ"Break in program"
  67.  ms22$ÿ"Do you wish to resume?"
  68.  ms23$ÿ"Select query to be loaded"
  69.  ms24$ÿ"Enter query name"
  70.  ms25$ÿ"Cannot edit or delete"
  71.  ms26$ÿ"Batch totals do not agree"
  72.  ms27$ÿ"Amount must be positive"
  73.  ms28$ÿ"Batch totals agree"
  74.  ms29$ÿ"Do you wish to edit batch?"
  75.  ms30$ÿ"Do you have a VGA display adapter?"
  76.  
  77.  ms311$ÿ"This produces certificate advices for"
  78.  ms312$ÿ"transactions with certificate numbers"
  79.  ms321$ÿ"This produces contract notes"
  80.  ms322$ÿ"for all new transactions"
  81.  
  82.  ms411$ÿ"This updates stocks with year highs"
  83.  ms421$ÿ"This updates stocks with year lows"
  84.  ms431$ÿ"This updates transactions to indicate"
  85.  ms432$ÿ"that certificates have been sent"
  86.  ms442$ÿ"that contract notes have been sent"
  87.  ms451$ÿ"This resets document sent flags to N"
  88.  ms452$ÿ"for transaction nos. 000020 and up"
  89.  
  90.  ÿ½ Status line messages
  91.  ss1$ÿ"Select a pulldown menu option"
  92.  ss2$ÿ"Select a pushbutton option"
  93.  ss3$ÿ"Enter data for new record"
  94.  ss4$ÿ"Use TAB or click on field to be edited. ESC to stop."
  95.  ss6$ÿ"Printing"
  96.  ss7$ÿ"Press the Space Bar to continue"
  97.  ss8$ÿ"Creating temporary mailmerge file"
  98.  ss9$ÿ"Enter new value(s)"
  99.  ss10$ÿ"Browse in "
  100.  ss11$ÿ" sequence: use STOP to end browsing"
  101.  ss12$ÿ"Select line to be deleted"
  102.  ss13$ÿ"Select pushbutton or click on line to edit"
  103.  ss14$ÿ"Press any key or click on mouse button to continue"
  104.  ss15$ÿ"Create or edit query. Use ENTER to stop"
  105.  ss16$ÿ"Checking whether referenced elsewhere"
  106.  ss17$ÿ"Updating client trading balance"
  107.  ss18$ÿ"Press ENTER for default values"
  108.  ss19$ÿ"Updating"
  109.  ss20$ÿ"Enter batch total"
  110.  ss21$ÿ"Move the pointer over a transaction line and click"
  111.  ÿ¬ÿ…
  112.  
  113. smenu:ÿ½ Define pulldown menus
  114.     ÿ½ Flags in CTRL do graying for doc production/update cycles
  115.  ÿ¬1,0,1,"&File"
  116.  ÿ¬1,1,1,"&Clients"
  117.  ÿ¬1,2,1,"&Stocks"
  118.  ÿ¬1,3,1,"C&ountries"
  119.  ÿ¬1,4,1,"C&urrencies"
  120.  ÿ¬1,5,tran.CTRL,"&Transactions"
  121.  ÿ¬1,6,1,"&Exit"
  122.  
  123.  ÿ¬2,0,1,"&Daily"
  124.  ÿ¬2,1,1,"&Currency Rates"
  125.  ÿ¬2,2,1,"&Stock Prices"
  126.  ÿ¬2,3,cent.CTRL,"Certificate &Nos"
  127.  ÿ¬2,4,1,"Cash &Receipts"
  128.  ÿ¬2,5,1,"Cash &Payments"
  129.  
  130.  ÿ¬3,0,1,"D&ocuments"
  131.  ÿ¬3,1,cert.CTRL,"&Certificates":
  132.  ÿ¬3,2,cont.CTRL,"C&ontract Notes"
  133.  ÿ¬3,3,1,"&Statements"
  134.  
  135.  ÿ¬4,0,1,"&Update"
  136.  ÿ¬4,1,1,"Stock &Highs"
  137.  ÿ¬4,2,1,"Stock &Lows"
  138.  ÿ¬4,3,ceru.CTRL,"&Certs Sent"
  139.  ÿ¬4,4,conu.CTRL,"&Notes Sent"
  140.  ÿ¬4,5,1,"&Reset"
  141.  
  142.  ÿ¬5,0,1,"&Query"
  143.  ÿ¬5,1,1,"&Run"
  144.  ÿ¬5,2,1,"&New"
  145.  ÿ¬5,3,1,"&Open"
  146.  ÿ¬5,4,1,"&Edit"
  147.  ÿ¬5,5,1,"&Save"
  148.  
  149.  ÿ¬6,0,1,"&Reports"
  150.  ÿ¬6,1,1,"&Traded Stocks"
  151.  ÿ¬6,2,1,"Stock &Highs"
  152.  ÿ¬6,3,1,"Stock &Lows"
  153.  ÿ¬6,4,1,"T&rading Balances"
  154.  ÿ¬6,5,1,"-----------------"
  155.  ÿ¬6,6,1,"Telephone &Nos"
  156.  ÿ¬6,7,1,"Client &Balances"
  157.  ÿ¬6,8,1,"&Cash Audit"
  158.  ÿÃ
  159.  
  160. shead:ÿ½ Set heading every minute during menu wait
  161.  h1$ÿÿ(ÿQ,"mmm dd, yy"):h2$ÿÿ7(ÿR,"hh:mm am")
  162.  h2%ÿÿ:(ÿR):h3%ÿ(50ÿÿ/(h3$))ÿ2
  163.  h4$ÿh1$ÿÿ'(h3%)ÿh3$ÿÿ'(h3%)ÿh2$
  164.  ÿÊÿŸh4$
  165.  ÿÃ
  166.  
  167. m1:ÿ½ ma%= 1 File menu options 
  168.  selkey$ÿ"":selkey%ÿ0
  169.  ÿ³mb%ÿwstkf,stkf,m13,m13,stkf,m16
  170.  
  171. m13:ÿ½ File Countries, Currencies
  172.  ÿ„"stkfo"
  173.  
  174. m16:ÿ½ File Exit
  175.  ÿ†ÿt:ÿÊÿŸ"":ÿÊÿÂÿŸ"":ÿ’
  176.  
  177. m2:ÿ½ ma%=2 Daily menu options
  178.  ÿ³mb%ÿwm21,m21,m21,m24,m24
  179.  
  180. m21:ÿ½ Daily Currency rates, Stock prices, Certificate numbers 
  181.  ÿ„"stkdc"
  182.  
  183. m24:ÿ½ Daily Cash receipts, Cash payments
  184.  ÿ„"stkdr"
  185.  
  186. m3:ÿ½ ma%=3 Documents menu options
  187.  ÿ³mb%ÿvm31,m31,stkf
  188.  ÿwmloop
  189.  
  190. m31:ÿ½ Documents Certificate advices, Contract notes
  191.  ÿÉÿæmb%
  192.  ÿæ1
  193. ÿÂms311$,ms312$,140,a%
  194.  ÿæ2
  195. ÿÂms321$,ms322$,140,a%
  196.  ÿ’ÿÉ
  197.  ÿ¡a%ÿ0ÿpÿÃ
  198.  
  199.  ÿßÿe
  200.  ÿÊÿËss8$
  201.  ÿ¡mb%ÿ1ÿp
  202. ÿ½ Certificate advices
  203. docf$ÿ"certs":letf$ÿ"lecerts"
  204. ÿ¡ÿJ("certs.sbf")ÿpÿ´ÿ™docf$:ÿ¾ÿ™docf$
  205. ÿÉCustomer_Ref.TRANS,Quantity.TRANS,Certificate_No.TRANS,Title.CLIENTS,Firstname.CLIENTS,
  206. Lastname.CLIENTS,Company.CLIENTS,Street.CLIENTS,Address.CLIENTS,
  207. City.CLIENTS,State.CLIENTS,Zip_Code.CLIENTS,Country.CLIENTS,
  208. Company Name.STOCKS,Stock_Type
  209. ÿÐCustomer_Ref.TRANSÿCustomer_Ref.CLIENTSÿ Stock_Key.TRANSÿStock_Key.STOCKSÿ Trans_Type.TRANSÿ"b"ÿ Certificate_No.TRANSÿ""ÿ Cert_Sent_yn.TRANSÿ"n"
  210. ÿµStock_Key.TRANS,Certificate_No.TRANS
  211. ÿqÿ™docf$
  212. ÿ’ÿÉ
  213.  ÿ^ÿ¡mb%ÿ2ÿp
  214. ÿ½ Contract notes
  215. docf$ÿ"invs":letf$ÿ"leinvs"
  216. ÿ¡ÿJ("invs.sbf")ÿpÿ´ÿ™docf$:ÿ¾ÿ™docf$
  217. ÿÉStock_Key.TRANS,Customer_Ref.TRANS,Transaction ref,Trans_Type,Trans_Desc,Trans_Date,Settlement_Date,ÿ(Quantity.TRANS,6,0)ÿU"QTY",ÿ(Stock_Price.TRANS,6,2)ÿU"PR",Currency.TRANS,USD Xrate.TRANS,
  218. ÿ(ÿ(USD Value.TRANS),6,2)ÿU"USDV",(Comm_Value)ÿU"Com",ÿ(ÿ(USD Value.TRANSÿComm_Value),6,2)ÿU"TV",&24(Client.CLIENTS)ÿU"Client",Company.CLIENTS,Street.CLIENTS,Address.CLIENTS,City.CLIENTS,
  219. State.CLIENTS,Zip_Code.CLIENTS,Country.CLIENTS,Company Name.STOCKS,Stock_Type,Exchange
  220. ÿÐCustomer_Ref.TRANSÿCustomer_Ref.CLIENTSÿ Stock_Key.TRANSÿStock_Key.STOCKSÿ Invoice_Sent_yn.TRANSÿ"n"
  221. ÿµCustomer_Ref.TRANS,Transaction ref
  222. ÿqÿ™docf$
  223. ÿ’ÿÉ
  224.  ÿ’ÿ¡
  225.  ÿ´ÿ™docf$
  226.  ÿvsdorp:ÿ½ display or print
  227.  ÿ¡a%ÿ0ÿpÿ¾ÿ™docf$:ÿÃ
  228.  
  229. m312:ÿ½ Display or print merge documents
  230.  ÿ¨ÿoletf$:ÿÉÿ`
  231.  ÿØÿOÿB(docf$)
  232. ÿ¡p$ÿ"p"ÿpÿ­ÿoletf$
  233. ÿ¡p$ÿ"d"ÿpÿ{ÿoÿ­
  234. ÿ½ WAIT FOR 2
  235. ÿÉÿ±
  236.  ÿÙ
  237.  b%ÿ0
  238.  ÿÂms4$,"",130,a%
  239.  ÿ¡a%ÿp
  240. ÿ½ Update CTRL file and re-set menus grayed=0 active=1 
  241. ÿ™"ctrl"
  242. ÿ¡mb%ÿ1ÿp
  243. tran.CTRLÿ0:cent.CTRLÿ0:cert.CTRLÿ0:ceru.CTRLÿ1
  244. ÿ¬1,5,tran.CTRL,"&Transactions"
  245. ÿ¬2,3,cent.CTRL,"Certificate &Nos"
  246. ÿ¬3,1,cert.CTRL,"&Certificates"
  247. ÿ¬4,3,ceru.CTRL,"&Certs Sent"
  248. ÿ^ÿ¡mb%ÿ2ÿp
  249. tran.CTRLÿ0:cont.CTRLÿ0:conu.CTRLÿ1
  250. ÿ¬1,5,tran.CTRL,"&Transactions"
  251. ÿ¬3,2,cont.CTRL,"C&ontract Notes"
  252. ÿ¬4,4,conu.CTRL,"&Notes Sent"
  253. ÿ’ÿ¡
  254. ÿÌ
  255.  ÿ^
  256. ÿÂms3$,"",135,b%
  257. ÿ¡b%ÿ0ÿpÿ¾ÿ™docf$
  258.  ÿ’ÿ¡
  259.  ÿ¡b%ÿ1ÿwm312
  260.  ÿÃ
  261.  
  262. m4:ÿ½ ma%=4 Update menu options
  263.  ÿ³mb%ÿvm41,m42,m43,m44,m45
  264.  ÿwmloop
  265.  
  266. m41:ÿ½ Update New Highs
  267.  ÿÂms411$,"",140,a%
  268.  ÿ¡a%ÿp
  269. ÿßÿe
  270. ÿÊÿËss19$
  271. ÿÍYear_High.STOCKSÿPrice Middle.STOCKS:Date of High.STOCKSÿPrice Date.STOCKS
  272. ÿÐPrice Middle.STOCKSÿYear_High.STOCKSÿÿ6(Price Date.STOCKS)ÿÿ6(Date of High.STOCKS)
  273. ÿ’ÿÍ
  274.  ÿ’ÿ¡
  275.  ÿÃ
  276.  
  277. m42:ÿ½ Update New Lows
  278.  ÿÂms421$,"",140,a%
  279.  ÿ¡a%ÿp
  280. ÿßÿe
  281. ÿÊÿËss19$
  282. ÿÍYear_Low.STOCKSÿPrice Middle.STOCKS:Date of Low.STOCKSÿPrice Date.STOCKS
  283. ÿÐPrice Middle.STOCKSÿ    Year_Low.STOCKSÿÿ6(Price Date.STOCKS)ÿÿ6(Date of Low.STOCKS)
  284. ÿ’ÿÍ
  285.  ÿ’ÿ¡
  286.  ÿÃ
  287.  
  288. m43:ÿ½ Update Certs Sent
  289.  ÿÂms431$,ms432$,140,a%
  290.  ÿ¡a%ÿp
  291. ÿßÿe
  292. ÿÊÿËss19$
  293. ÿÍCert_Sent_YN.TRANSÿ"y"
  294. ÿÐCertificate_No.TRANSÿ""ÿ Cert_Sent_YN.TRANSÿ"n"
  295. ÿ’ÿÍ
  296. 
  297. ÿ½ Update CTRL file and re-set menus grayed=0 active=1 
  298. ÿ™"ctrl"
  299. tran.CTRLÿ1:cent.CTRLÿ1:cert.CTRLÿ1:ceru.CTRLÿ0
  300. ÿ¬1,5,tran.CTRL,"&Transactions"
  301. ÿ¬2,3,cent.CTRL,"Certificate &Nos"
  302. ÿ¬3,1,cert.CTRL,"&Certificates"
  303. ÿ¬4,3,ceru.CTRL,"&Certs Sent"
  304. ÿÌ
  305.  ÿ’ÿ¡
  306.  ÿÃ
  307.  
  308. m44:ÿ½ Update Contract Notes Sent
  309.  ÿÂms431$,ms442$,140,a%
  310.  ÿ¡a%ÿp
  311. ÿßÿe
  312. ÿÊÿËss19$
  313. ÿÍInvoice_Sent_yn.TRANSÿ"y"ÿÐInvoice_Sent_yn.TRANSÿ"n"
  314. ÿ’ÿÍ
  315. 
  316. ÿ½ Update CTRL file and re-set menus grayed=0 active=1 
  317. ÿ™"ctrl"
  318. tran.CTRLÿ1:cont.CTRLÿ1:conu.CTRLÿ0
  319. ÿ¬1,5,tran.CTRL,"&Transactions"
  320. ÿ¬3,2,cont.CTRL,"C&ontract Notes"
  321. ÿ¬4,4,conu.CTRL,"&Notes Sent"
  322. ÿÌ
  323.  ÿ’ÿ¡
  324.  ÿÃ
  325.  
  326. m45:ÿ½ Resets document flags in TRANS for numbers 000020 and up
  327.  ÿÂms451$,ms452$,140,a%
  328.  ÿ¡a%ÿp
  329. ÿÊÿË"Updating TRANS file"
  330. ÿ™"TRANS"
  331. ÿ£Transaction ref
  332. ÿÍCert_Sent_yn.TRANSÿ"n":Invoice_Sent_yn.TRANSÿ"n"ÿÐTransaction ref.TRANSÿ20
  333. ÿ’ÿÍ
  334.  ÿ’ÿ¡
  335.  ÿÃ
  336.  
  337. m5:ÿ½ ma%=5 Query menu options
  338.  ÿßÿ³:ÿ²"z-9999999.00"
  339.  ÿÉÿæmb%
  340.  ÿæ1:ÿ½ Query Run
  341. ÿvsdorp
  342. ÿ¡a%ÿp
  343. ÿ¡p$ÿ"p"ÿp
  345. ÿ{ÿiÿqÿh
  346. ÿ^
  348. ÿ{ÿi
  350. ÿÊÿËss14$
  352. ÿÏÿ¥ÿÿß
  353. ÿ’ÿ¡
  354. ÿœ
  355. ÿ’ÿ¡
  356.  ÿæ2:ÿ½ Query New
  357. ÿÊÿËss15$
  358. ÿ³ÿ_ÿwmqerror
  359. ÿ°ÿi
  360. ÿÿi
  361.  ÿæ3:ÿ½ Query Open
  362. ÿÂms23$,"",14,a%,q$
  363. ÿ¡a%ÿpÿ¨ÿiq$
  364.  ÿæ4:ÿ½ Query Edit
  365. ÿÊÿËss15$
  366. ÿ³ÿ_ÿwmqerror
  367. ÿÿi
  368.  ÿæ5:ÿ½ Query Save
  369. ÿÂms24$,"",14,a%,q$
  370. ÿ¡a%ÿpÿÅÿiq$
  371.  ÿ’ÿÉ
  372.  ÿ¡mb%ÿ2ÿpmb%ÿ1:ÿwm5:ÿ½ if New query then Run
  373.  
  374. mqerror: ÿ½ Trap for errors generated from Query dialog
  375.  ÿ³ÿ_ÿwferror
  376.  ÿ²"z-99999.00"
  377.  ÿwmloop
  378.  
  379. m6:ÿ½ ma%=6 Reports menu options
  380.  ÿvsdorp: ÿ¡a%ÿ0ÿpÿwmloop
  381.  ÿ³mb%ÿwm61,m62,m63,m64,mloop,m66,m67,m68
  382.  
  383. m61:ÿ„"stkrte"
  384. m62:ÿ„"stkrhe"
  385. m63:ÿ„"stkrle"
  386. m64:ÿ„"stkrre"
  387. m66:ÿ„"stkrne"
  388. m67:ÿ„"stkrbe"
  389. m68:ÿ„"stkrce"
  390.  
  391. sdorp:ÿ½ Select d=display p=print
  392.  p$ÿ"d"
  393.  ÿÂms17$,"",4,a%,p$,1
  394.  ÿ¡ÿO(p$ÿ"[pd]")ÿwsdorp
  395.  ÿ¡a%ÿp
  396. p$ÿÿ=(p$)
  397. ÿ¡p$ÿ"d"ÿpÿÊÿËss7$ÿ^ÿÊÿËss6$:ÿ¹;
  398.  ÿ’ÿ¡
  399.  ÿÃ
  400.  
  401. stkf:ÿ½ File Clients, Stocks, Transactions 
  402. ÿ½ Documents Statements
  403.  fst%ÿ0:cli%ÿ1:stk%ÿ2:sta%ÿ3:tra%ÿ5:k%ÿ1:t%ÿ0
  404.  ÿ½ Set option parameters
  405.  ÿÉÿæmb%
  406.  ÿæcli%:ÿ½ File Clients
  407. f$ÿ"clients":fkey$ÿ"Customer_Ref":fmd$ÿ"stkc":fmp$ÿ"stkc"
  408.  ÿæstk%:ÿ½ File Stocks
  409. f$ÿ"stocks":fkey$ÿ"Stock_Key":fmd$ÿ"stks":fmp$ÿ"stks"
  410.  ÿæsta%:ÿ½ Documents Statements
  411. f$ÿ"clients":fkey$ÿ"Customer_Ref":fmd$ÿ"stkos":fmp$ÿ"stkos"
  412.  ÿætra%:ÿ½ File Transactions
  413. f$ÿ"trans":fkey$ÿ"Transaction ref":fmd$ÿ"stkt":fmp$ÿ"stkt":k%ÿ2
  414.  ÿ’ÿÉ
  415.  
  416.  ÿ™f$
  417.  ÿ£fkey$
  418.  ÿ¡ÿœÿfmd$ÿpÿ´ÿœfmd$
  419.  ind$ÿÿ£
  420.  ÿvsset
  421.  
  422.  ÿ½ File forms have command only on page 1 to select form on selkey 
  423.  ÿ¡mb%ÿsta%ÿpÿœ2
  424.  ÿwfwait 
  425.  
  426. floop:ÿ½ Re-display form
  427.  ÿvsset
  428.  ÿvssearch
  429.  ÿÎ
  430.  
  431. fwait:ÿ½ Wait here for form pushbutton 
  432.  ed%ÿ1
  433.  ÿÊÿËss2$
  434.  ÿÏÿß
  435.  ÿwfwait
  436.  
  437. fedit:ÿ½ Edit pushbutton
  438.  ÿÊÿËss4$
  439.  ÿ¡mb%ÿtra%ÿpoamt%ÿTotal_Due.TRANS
  440.  ÿßÿ³:ÿ”3,0
  441.  
  442. fedit2: 
  443.  ÿßÿe
  444.  ÿÂms1$,"",127,a%
  445.  ÿ¡a%ÿ1ÿp
  446. ÿÌ:ÿ½ Stores edited data 
  447. ÿ¡mb%ÿtra%ÿpamt%ÿTotal_Due.TRANSÿoamt%:ÿvsupdate
  448.  ÿ^
  449. ÿÉÿœÿY:ÿ½ Re-dispay form as before edit 
  450.  ÿ’ÿ¡
  451.  ÿwfloop
  452.  
  453. fenter: ÿ½ Enter pushbutton
  454.  ÿÿœ:ed%ÿ0
  455.  ÿ¡mb%ÿtra%ÿp
  456. Trans_Type ÿ"b":del%ÿ0:ÿÊÿËss18$
  457.  ÿ^
  458. ÿ¡mb%ÿcli%ÿpClass.CLIENTSÿ"P"
  459. ÿÊÿËss3$
  460.  ÿ’ÿ¡
  461.  ÿßÿ³:ÿ”3,0
  462.  
  463. fenter2: 
  464.  ÿßÿe
  465.  b%ÿ0
  466.  ÿÂms1$,"",127,a%
  467.  ÿ¡a%ÿp
  468. ÿÌ:ÿ½ Store new record
  469. del%ÿ0
  470. ÿ¡mb%ÿtra%ÿpamt%ÿTotal_Due.TRANS: ÿvsupdate
  471. ÿÂms2$,"",130,b%
  472.  ÿ^
  473. ÿÉÿœÿY:ÿ½ Re-display current form
  474.  ÿ’ÿ¡
  475.  ÿ¡b%ÿpÿwfenter 
  476.  ÿœ2
  477.  ÿwfloop 
  478.  
  479. fdelete:ÿ½ Delete pushbutton
  480.  del%ÿ1
  481.  ÿ¡mb%ÿtra%ÿp
  482. ÿ½ Clients, Stocks, test for related transactions, if so set del%=0
  483. ÿÊÿËss16$
  484. ÿ™"trans"
  485. skey$ÿckey$
  486. ÿ¡mb%ÿcli%ÿpÿ£Customer_Ref.TRANS
  487. ÿ¡mb%ÿstk%ÿpÿ£Stock_Key.TRANS
  488. ÿÉÿ¥skey$
  489. ÿ¡ÿC("")ÿpdel%ÿ0
  490. ckey$ÿskey$
  491. ÿ™f$
  492.  ÿ’ÿ¡
  493.  ÿ¡del%ÿ1ÿp
  494. ÿÂms14$,"",119,a%
  495. ÿ¡a%ÿp
  496. ÿ¡mb%ÿtra%ÿpamt%ÿÿTotal_Due.TRANS:ÿvsupdate
  497. ÿÉÿ¾
  498. ÿ’ÿ¡
  499.  ÿ^
  500. ÿÂms19$,ms20$,100,a%
  501.  ÿ’ÿ¡
  502.  ÿ¡del%ÿ0ÿwfwait
  503.  ÿÉÿœÿ¥ind$$
  504.  ÿwfloop 
  505.  
  506. fswitch:ÿ½ Assign key from transaction and get form/record
  507.  mp%ÿ0
  508.  ÿÊÿËss21$
  509.  ÿÏÿß
  510.  ÿ¡(mp%ÿ0ÿmp%ÿ10)ÿpÿwfswitch
  511.  ÿÉÿœÿ"mp%
  512.  
  513. fswitch2:ÿ½ Entry from Trans form: no need to select line
  514.  ÿÉÿæmb%
  515.  ÿæcli%
  516. selkey$ÿCustomer_Ref.TRANS
  517.  ÿæstk%
  518. selkey$ÿStock_Key.TRANS
  519.  ÿætra%
  520. selkey%ÿTransaction ref.TRANS
  521.  ÿ’ÿÉ
  522.  ÿwstkf
  523.  
  524. fexit:ÿ½ Exit pushbutton
  525.  ÿwmloop
  526.  
  527. stexit: 
  528.  ÿÃ
  529.  
  530. supdate:ÿ½ When transaction changes, update balance in Client record
  531.  ÿÊÿËss17$
  532.  ÿ™"clients"
  533.  ÿ£Customer_Ref.CLIENTS
  534.  ÿÉÿ¥Customer_Ref
  535.  ÿ¡ÿC("")ÿp
  536. Trading_Balance.CLIENTSÿTrading_Balance.CLIENTSÿamt%
  537. ÿÌ
  538.  ÿ^
  539. ÿÂms18$,"",100,a%
  540.  ÿ’ÿ¡
  541.  ÿ™f$
  542.  ÿÃ
  543.  
  544. sindex:ÿ½ Index pushbutton
  545.  ÿÂms7$,"",7,a%,ind$
  546.  ÿ¡a%ÿp
  547. ÿ£ind$
  548. ÿvssearch
  549.  ÿ’ÿ¡
  550.  ÿÎ
  551.  ÿÃ
  552.  
  553. spanel:ÿ½ Browse pushbutton
  554.  ÿ³ÿ_ÿwserror
  555.  err%ÿ0
  556.  ss5$ÿss10$ÿind$ÿss11$
  557.  ÿÊÿËss5$
  558.  
  559. spanel2: 
  560.  ÿÏÿâ
  561.  ÿ³ÿ_ÿwferror
  562.  ÿÉÿÐ
  563.  ÿ¡err%ÿ1ÿpÿ‚ÿ³
  564.  ÿvsset
  565.  ÿÃ
  566.  
  567. serror: ÿ‚ÿe:ÿ½ Error trap for Wait Panel errors
  568.  ÿÂÿ((ÿ&),"",2,a%
  569.  err%ÿ1
  570.  ÿÉÿœÿY:ÿyspanel2
  571.  
  572. sprint:ÿ½ Print pushbutton
  573.  b$ÿ"c":c%ÿ0
  574.  ÿÂms16$,"",4,a%,b$,1
  575.  ÿ¡a%ÿ0ÿpÿÃ
  576.  ÿ¡ÿO(b$ÿ"[csa]")ÿpÿwsprint
  577.  b$ÿÿ=(b$)
  578.  ÿ¡mb%ÿcli%ÿpÿÂms13$,"",135,c%
  579.  
  580.  ÿÊÿËss6$
  581.  ÿ½ OPEN FORM fmp$:REM Open special print form
  582.  ÿ¡b$ÿ"c"ÿp
  583. ÿvssearch
  584. ÿvssprint
  585. ÿ½ OPEN FORM fmd$
  586. ÿvssearch
  587.  ÿ^
  588. ÿ¡b$ÿ"s"ÿpÿÉÿœÿÐÿ~
  589. ÿÉÿœÿ`
  590. ÿØÿOÿB(f$)
  591. ÿvssprint 
  592. ÿÉÿœÿ±
  593. ÿÙ
  594. ÿÉÿÐ
  595. ÿ;
  596. ÿ½ OPEN FORM fmd$
  597. ÿÉÿ`
  598.  ÿ’ÿ¡
  599.  ÿÎ
  600.  ÿÃ
  601.  
  602. ssprint:ÿ½ print required pages
  603.  ÿÉÿæmb%
  604.  ÿæcli%
  605. ÿœ2:ÿ¹ÿYÿí
  606. ÿ¡c%ÿpÿœÿÈ3:ÿ¹ÿYÿí
  607. ÿœ4:ÿ¹ÿYÿí
  608.  ÿæstk%
  609. ÿœ2:ÿ¹ÿYÿí
  610. ÿœ3:ÿ¹ÿYÿí
  611. ÿœ4:ÿ¹ÿYÿí
  612.  ÿætra%
  613. ÿœ2:ÿ¹ÿYÿí
  614.  ÿæsta%
  615. ÿ¹ÿYÿí
  616.  ÿ’ÿÉ
  617.  ÿÃ
  618.  
  619. sset:ÿ½ Stores unique value for record in ckey
  620.  ÿ¡k%ÿ1ÿpckey$ÿfkey$$
  621.  ÿ¡k%ÿ2ÿpckey%ÿfkey$$
  622.  ÿÃ
  623.  
  624. ssearch:ÿ½ Gets unique record even if index has duplicate keys
  625.  ÿÉÿœÿ¥ind$$
  626.  
  627. ssearch2: ÿ½ Loop until correct record found
  628.  ÿ¡k%ÿ1ÿpÿ¡fkey$$ÿckey$ÿpÿÃ
  629.  ÿ¡k%ÿ2ÿpÿ¡fkey$$ÿckey%ÿpÿÃ
  630.  ÿÉÿœÿ±
  631.  ÿwssearch2
  632.  
  633. ferror:ÿ½ General error trap 
  634.  res%ÿ0
  635.  ÿ¡ÿ&ÿ11ÿp
  636. ÿÂms21$,ms22$,130,a%:ÿ¡a%ÿ1ÿpres%ÿ1
  637.  ÿ^ÿ¡ÿ&ÿ57ÿp
  638. ÿÂms8$,"",2,a%:res%ÿ2
  639.  ÿ^
  640. ÿÂÿ((ÿ&),ms9$,114,a%:ÿ¡a%ÿ1ÿpres%ÿ3
  641.  ÿ’ÿ¡
  642.  ÿ¡res%ÿ1ÿpÿy
  643.  ÿ¡res%ÿ2ÿpÿyfloop
  644.  ÿ¡res%ÿ3ÿpÿymloop
  645.  ÿ
  646.  
  647.  
  648.